home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / sorgtr.z / sorgtr
Encoding:
Text File  |  1998-10-30  |  2.7 KB  |  133 lines
  1.  
  2.  
  3.  
  4. SSSSOOOORRRRGGGGTTTTRRRR((((3333FFFF))))                                                          SSSSOOOORRRRGGGGTTTTRRRR((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SORGTR - generate a real orthogonal matrix Q which is defined as the
  10.      product of n-1 elementary reflectors of order N, as returned by SSYTRD
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE SORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO )
  14.  
  15.          CHARACTER      UPLO
  16.  
  17.          INTEGER        INFO, LDA, LWORK, N
  18.  
  19.          REAL           A( LDA, * ), TAU( * ), WORK( LWORK )
  20.  
  21. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  22.      SORGTR generates a real orthogonal matrix Q which is defined as the
  23.      product of n-1 elementary reflectors of order N, as returned by SSYTRD:
  24.  
  25.      if UPLO = 'U', Q = H(n-1) . . . H(2) H(1),
  26.  
  27.      if UPLO = 'L', Q = H(1) H(2) . . . H(n-1).
  28.  
  29.  
  30. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  31.      UPLO    (input) CHARACTER*1
  32.              = 'U': Upper triangle of A contains elementary reflectors from
  33.              SSYTRD; = 'L': Lower triangle of A contains elementary reflectors
  34.              from SSYTRD.
  35.  
  36.      N       (input) INTEGER
  37.              The order of the matrix Q. N >= 0.
  38.  
  39.      A       (input/output) REAL array, dimension (LDA,N)
  40.              On entry, the vectors which define the elementary reflectors, as
  41.              returned by SSYTRD.  On exit, the N-by-N orthogonal matrix Q.
  42.  
  43.      LDA     (input) INTEGER
  44.              The leading dimension of the array A. LDA >= max(1,N).
  45.  
  46.      TAU     (input) REAL array, dimension (N-1)
  47.              TAU(i) must contain the scalar factor of the elementary reflector
  48.              H(i), as returned by SSYTRD.
  49.  
  50.      WORK    (workspace/output) REAL array, dimension (LWORK)
  51.              On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
  52.  
  53.      LWORK   (input) INTEGER
  54.              The dimension of the array WORK. LWORK >= max(1,N-1).  For
  55.              optimum performance LWORK >= (N-1)*NB, where NB is the optimal
  56.              blocksize.
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. SSSSOOOORRRRGGGGTTTTRRRR((((3333FFFF))))                                                          SSSSOOOORRRRGGGGTTTTRRRR((((3333FFFF))))
  71.  
  72.  
  73.  
  74.      INFO    (output) INTEGER
  75.              = 0:  successful exit
  76.              < 0:  if INFO = -i, the i-th argument had an illegal value
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.                                                                         PPPPaaaaggggeeee 2222
  130.  
  131.  
  132.  
  133.